home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 71.zip / BS1 part 71 / ImageFix1.50.adf / Install-ImageFX < prev    next >
Text File  |  1993-07-15  |  26KB  |  883 lines
  1. ; ImageFX Installer Utility
  2. ;
  3. ; For ImageFX release 1.50
  4. ;
  5. ; (Last updated: Paul Higginbottom 12/29/92)
  6. ; (Updated more for 1.50 by: Tom Krehbiel 7/15/93)
  7.  
  8.  
  9. (
  10.  
  11.    ; Which OS are we under?
  12.    (set osver (/ (getversion) 65536))
  13.  
  14.    ; See if ImageFX: already exists, if so use it as the default
  15.  
  16.    (set initialdir @default-dest)
  17.    (if (getassign "ImageFX")
  18.       (
  19.          (set initialdir (expandpath "ImageFX:"))
  20.       )
  21.    )
  22.  
  23.    ; Ask where to install it...
  24.    (set wheredir
  25.       (askdir
  26.          (prompt "Select where you would like to install ImageFX. "
  27.                  "(About 3MB is required for complete installation.) "
  28.                  "(You may install over an older copy of ImageFX "
  29.                  "to update to this new version - your current "
  30.                  "configuration will be preserved.)")
  31.          (help "ImageFX and all necessary files will be installed "
  32.                "in the directory of your choice.  You may wish to "
  33.                "create a new directory for ImageFX by using the "
  34.                "'Make New Drawer' gadget.")
  35.          (default initialdir)
  36.       )
  37.    )
  38.  
  39.    (message "ImageFX will be installed in " wheredir)
  40.  
  41.    (set @default-dest wheredir)
  42.  
  43.    (working "Installing ImageFX Program...")
  44.  
  45.    (copyfiles
  46.       (prompt "")
  47.       (help @copyfiles-help)
  48.       (source "ImageFX1:ImageFX")
  49.       (dest @default-dest)
  50.    )
  51.  
  52.    ; There is no need to overwrite Default.keys since 1.04 has
  53.    ; default keys built in.  User's existing keys will just
  54.    ; overwrite the internal defaults.
  55.  
  56.    (if (= (exists (tackon @default-dest "Default.keys")) 0)
  57.       (
  58.          (copyfiles
  59.             (prompt "")
  60.             (help @copyfiles-help)
  61.             (source "ImageFX1:Default.keys")
  62.             (dest @default-dest)
  63.          )
  64.       )
  65.    )
  66.  
  67.    ; Since presets are exactly the same, don't copy over
  68.    ; an existing file, in case the user has modified them.
  69.  
  70.    (if (= (exists (tackon @default-dest "Default.presets")) 0)
  71.       (
  72.          (copyfiles
  73.             (prompt "")
  74.             (help @copyfiles-help)
  75.             (source "ImageFX1:Default.presets")
  76.             (dest @default-dest)
  77.          )
  78.       )
  79.    )
  80.  
  81.    ; README file is now on Disk #1
  82.  
  83.    (copyfiles
  84.       (prompt "")
  85.       (help @copyfiles-help)
  86.       (source "ImageFX1:")
  87.       (dest @default-dest)
  88.       (choices
  89.          "README"
  90.       )
  91.    )
  92.  
  93.    ; Copy UNLZ to RAM:
  94.  
  95.    (copyfiles
  96.       (prompt "")
  97.       (help @copyfiles-help)
  98.       (source "ImageFX1:c")
  99.       (dest "RAM:")
  100.       (choices "UNLZ")
  101.    )
  102.  
  103.    ;*******************************************************************
  104.    ; Prompt for second disk.
  105.    ;*******************************************************************
  106.  
  107.  
  108.    (askdisk
  109.       (prompt "Please insert Support 1 Disk in any drive.")
  110.       (help "")
  111.       (dest "ImageFX2")
  112. ;     (assigns)
  113.    )
  114.  
  115.    (working "Copying module archive to RAM...")
  116.  
  117.    (copyfiles
  118.       (prompt "")
  119.       (help @copyfiles-help)
  120.       (source "ImageFX2:")
  121.       (dest "RAM:")
  122.       (choices "modules.lzh")
  123.    )
  124.  
  125.    (working "Installing ImageFX Modules...")
  126.  
  127.    (makedir (tackon @default-dest "Modules"))
  128.    (makedir (tackon @default-dest "Modules/Preview"))
  129.    (makedir (tackon @default-dest "Modules/Scanner"))
  130.    (makedir (tackon @default-dest "Modules/Render"))
  131.    (makedir (tackon @default-dest "Modules/Printer"))
  132.    (makedir (tackon @default-dest "Modules/Quantize"))
  133.    (makedir (tackon @default-dest "Modules/Sys"))
  134.    (makedir (tackon @default-dest "Modules/Loaders"))
  135.    (makedir (tackon @default-dest "Modules/Savers"))
  136.    (makedir (tackon @default-dest "Modules/Drawmodes"))
  137.  
  138.    (working "Uncompressing & Installing Loader Modules...")
  139.  
  140.    (if (exists (tackon @default-dest "modules/loaders"))
  141.       (
  142.          ; Delete old copies of loaders
  143.          (delete (tackon @default-dest "modules/loaders/ALIAS"))
  144.          (delete (tackon @default-dest "modules/loaders/ANIM"))
  145.          (delete (tackon @default-dest "modules/loaders/BMP"))
  146.          (delete (tackon @default-dest "modules/loaders/DCTV"))
  147.          (delete (tackon @default-dest "modules/loaders/DPIIE"))
  148.          (delete (tackon @default-dest "modules/loaders/FAXX"))
  149.          (delete (tackon @default-dest "modules/loaders/FLI"))
  150.          (delete (tackon @default-dest "modules/loaders/GIF"))
  151.          (delete (tackon @default-dest "modules/loaders/HAME"))
  152.          (delete (tackon @default-dest "modules/loaders/ICO"))
  153.          (delete (tackon @default-dest "modules/loaders/ILBM"))
  154.          (delete (tackon @default-dest "modules/loaders/IMG8"))
  155.          (delete (tackon @default-dest "modules/loaders/Impulse"))
  156.          (delete (tackon @default-dest "modules/loaders/info"))
  157.          (delete (tackon @default-dest "modules/loaders/JPEG.000"))
  158.          (delete (tackon @default-dest "modules/loaders/JPEG.030"))
  159.          (delete (tackon @default-dest "modules/loaders/MacPaint"))
  160.          (delete (tackon @default-dest "modules/loaders/PBM"))
  161.          (delete (tackon @default-dest "modules/loaders/PCX"))
  162.          (delete (tackon @default-dest "modules/loaders/QRT"))
  163.          (delete (tackon @default-dest "modules/loaders/Rendition"))
  164.          (delete (tackon @default-dest "modules/loaders/Sculpt"))
  165.          (delete (tackon @default-dest "modules/loaders/Targa"))
  166.          (delete (tackon @default-dest "modules/loaders/TIFF"))
  167.          (delete (tackon @default-dest "modules/loaders/VMEM"))
  168.          (delete (tackon @default-dest "modules/loaders/YUVN"))
  169.       )
  170.    )
  171.  
  172.    (run "RAM:UNLZ -m x RAM:modules modules/loaders/#? RAM:")
  173.  
  174.    (copyfiles
  175.       (prompt "Select Loader Modules To Install:")
  176.       (help @copyfiles-help)
  177.       (source "RAM:modules/loaders")
  178.       (dest (tackon @default-dest "modules/loaders"))
  179.       (choices
  180.          "ALIAS" "ANIM" "BMP" "DCTV" "DPIIE" "FAXX" "FLI" "GIF"
  181.          "HAME" "ICO" "ILBM" "IMG8" "Impulse" "info" "JPEG.000"
  182.          "JPEG.030" "MacPaint" "PBM" "PCX" "QRT" "Rendition" "Sculpt"
  183.          "Targa" "TIFF" "VMEM" "YUVN"
  184.       )
  185.       (confirm)
  186.    )
  187.  
  188.    (run "c:delete RAM:modules all quiet")
  189.  
  190.    (working "Uncompressing & Installing Saver Modules...")
  191.  
  192.    (if (exists (tackon @default-dest "modules/savers"))
  193.       (
  194.          ; Delete old copies of savers
  195.          (delete (tackon @default-dest "modules/savers/ALIAS"))
  196.          (delete (tackon @default-dest "modules/savers/ANIM"))
  197.          (delete (tackon @default-dest "modules/savers/ANIM7"))
  198.          (delete (tackon @default-dest "modules/savers/BMP"))
  199.          (delete (tackon @default-dest "modules/savers/DPIIE"))
  200.          (delete (tackon @default-dest "modules/savers/FAXX"))
  201.          (delete (tackon @default-dest "modules/savers/GIF"))
  202.          (delete (tackon @default-dest "modules/savers/ILBM"))
  203.          (delete (tackon @default-dest "modules/savers/info"))
  204.          (delete (tackon @default-dest "modules/savers/JPEG.000"))
  205.          (delete (tackon @default-dest "modules/savers/JPEG.030"))
  206.          (delete (tackon @default-dest "modules/savers/PBM"))
  207.          (delete (tackon @default-dest "modules/savers/PCX"))
  208.          (delete (tackon @default-dest "modules/savers/QRT"))
  209.          (delete (tackon @default-dest "modules/savers/Rendition"))
  210.          (delete (tackon @default-dest "modules/savers/Sculpt"))
  211.          (delete (tackon @default-dest "modules/savers/Targa"))
  212.          (delete (tackon @default-dest "modules/savers/TIFF"))
  213.          (delete (tackon @default-dest "modules/savers/VMEM"))
  214.       )
  215.    )
  216.  
  217.    (run "RAM:UNLZ -m x RAM:modules modules/savers/#? RAM:")
  218.  
  219.    (copyfiles
  220.       (prompt "Select Saver Modules To Install:")
  221.       (help @copyfiles-help)
  222.       (source "RAM:modules/savers")
  223.       (dest (tackon @default-dest "modules/savers"))
  224.       (choices
  225.          "ALIAS" "ANIM" "ANIM7" "BMP" "DPIIE" "FAXX" "GIF"
  226.          "ILBM" "info" "JPEG.000" "JPEG.030" "PBM" "PCX" "QRT"
  227.          "Rendition" "Sculpt" "Targa" "TIFF" "VMEM"
  228.       )
  229.       (confirm)
  230.    )
  231.  
  232.    (run "c:delete RAM:modules all quiet")
  233.  
  234.    (working "Uncompressing & Installing Preview Modules...")
  235.  
  236.    (if (exists (tackon @default-dest "modules/preview"))
  237.       (
  238.          ; Delete old copies of previews
  239.          (delete (tackon @default-dest "modules/preview/Amiga"))
  240.          (delete (tackon @default-dest "modules/preview/Amiga-AGA"))
  241.          (delete (tackon @default-dest "modules/preview/DCTV"))
  242.          (delete (tackon @default-dest "modules/preview/Firecracker"))
  243.          (delete (tackon @default-dest "modules/preview/Hame"))
  244.          (delete (tackon @default-dest "modules/preview/IV24"))
  245.          (delete (tackon @default-dest "modules/preview/OpalVision"))
  246.          (delete (tackon @default-dest "modules/preview/SuperAmiga"))
  247.       )
  248.    )
  249.  
  250.    (run "RAM:UNLZ -m x RAM:modules modules/preview/#? RAM:")
  251.  
  252.    (copyfiles
  253.       (prompt "Select Preview Modules To Install:")
  254.       (help @copyfiles-help)
  255.       (source "RAM:modules/preview")
  256.       (dest (tackon @default-dest "modules/preview"))
  257.       (choices
  258.          "Amiga" "Amiga-AGA" "DCTV" "Firecracker" "Hame" "IV24"
  259.          "OpalVision" "SuperAmiga"
  260.       )
  261.       (confirm)
  262.    )
  263.  
  264.    (run "c:delete RAM:modules all quiet")
  265.  
  266.    (working "Uncompressing & Installing Render Modules...")
  267.  
  268.    (if (exists (tackon @default-dest "modules/render"))
  269.       (
  270.          ; Delete old copies of render modules
  271.          (delete (tackon @default-dest "modules/render/Amiga"))
  272.          (delete (tackon @default-dest "modules/render/Amiga1.3"))
  273.          (delete (tackon @default-dest "modules/render/DCTV"))
  274.          (delete (tackon @default-dest "modules/render/EGS"))
  275.          (delete (tackon @default-dest "modules/render/Firecracker"))
  276.          (delete (tackon @default-dest "modules/render/Foreign"))
  277.          (delete (tackon @default-dest "modules/render/Hame"))
  278.          (delete (tackon @default-dest "modules/render/IV24"))
  279.          (delete (tackon @default-dest "modules/render/Retina"))
  280.          (delete (tackon @default-dest "modules/render/SAGE"))
  281.          (delete (tackon @default-dest "modules/render/OpalVision"))
  282.       )
  283.    )
  284.  
  285.    (run "RAM:UNLZ -m x RAM:modules modules/render/#? RAM:")
  286.  
  287.    (copyfiles
  288.       (prompt "Select Render Modules:")
  289.       (help @copyfiles-help)
  290.       (source "RAM:modules/render")
  291.       (dest (tackon @default-dest "modules/render"))
  292.       (choices
  293.          "Amiga" "Amiga1.3" "DCTV" "EGS" "Firecracker"
  294.          "Foreign" "Hame" "IV24" "Retina" "SAGE" "OpalVision"
  295.       )
  296.       (confirm)
  297.    )
  298.  
  299.    (run "c:delete RAM:modules all quiet")
  300.  
  301.    (working "Uncompressing & Installing Scanner Modules...")
  302.  
  303.    (if (exists (tackon @default-dest "modules/scanner"))
  304.       (
  305.          ; Delete old copies of scanner modules
  306.          (delete (tackon @default-dest "modules/scanner/ES300C.alt"))
  307.          (delete (tackon @default-dest "modules/scanner/ES300C"))
  308.          (delete (tackon @default-dest "modules/scanner/Epson"))
  309.          (delete (tackon @default-dest "modules/scanner/FrameGrabber"))
  310.          (delete (tackon @default-dest "modules/scanner/FrameGrabber256"))
  311.          (delete (tackon @default-dest "modules/scanner/IVFG"))
  312.          (delete (tackon @default-dest "modules/scanner/JX100"))
  313.          (delete (tackon @default-dest "modules/scanner/VLAB"))
  314.       )
  315.    )
  316.  
  317.    (run "RAM:UNLZ -m x RAM:modules modules/scanner/#? RAM:")
  318.  
  319.    (copyfiles
  320.       (prompt "Select Scanner Modules:")
  321.       (help @copyfiles-help)
  322.       (source "RAM:modules/scanner")
  323.       (dest (tackon @default-dest "modules/scanner"))
  324.       (choices
  325.          "Epson" "FrameGrabber" "FrameGrabber256" "IVFG" "JX100" "VLAB"
  326.       )
  327.       (confirm)
  328.    )
  329.  
  330.    (run "c:delete RAM:modules all quiet")
  331.  
  332.    (working "Uncompressing & Installing Printer Modules...")
  333.  
  334.    (if (exists (tackon @default-dest "modules/printer"))
  335.       (
  336.          ; Delete old copies of printer modules
  337.          (delete (tackon @default-dest "modules/printer/PostScript"))
  338.          (delete (tackon @default-dest "modules/printer/Prefs"))
  339.          (delete (tackon @default-dest "modules/printer/Prefs2"))
  340.       )
  341.    )
  342.  
  343.    (run "RAM:UNLZ -m x RAM:modules modules/printer/#? RAM:")
  344.  
  345.    (copyfiles
  346.       (prompt "Select Printer Modules:")
  347.       (help @copyfiles-help)
  348.       (source "RAM:modules/printer")
  349.       (dest (tackon @default-dest "modules/printer"))
  350.       (choices
  351.          "PostScript" "Prefs" "Prefs2"
  352.       )
  353.       (confirm)
  354.    )
  355.  
  356.    (run "c:delete RAM:modules all quiet")
  357.  
  358.    (working "Uncompressing & Installing Quantize Modules...")
  359.  
  360.    (if (exists (tackon @default-dest "modules/quantize"))
  361.       (
  362.          ; Delete old copies of printer modules
  363.          (delete (tackon @default-dest "modules/quantize/MedianCut"))
  364.          (delete (tackon @default-dest "modules/quantize/Enhanced"))
  365.          (delete (tackon @default-dest "modules/quantize/Tibbett"))
  366.       )
  367.    )
  368.  
  369.    (run "RAM:UNLZ -m x RAM:modules modules/quantize/#? RAM:")
  370.  
  371.    (copyfiles
  372.       (prompt "Select Quantize Modules:")
  373.       (help @copyfiles-help)
  374.       (source "RAM:modules/quantize")
  375.       (dest (tackon @default-dest "modules/quantize"))
  376.       (choices
  377.          "MedianCut" "Enhanced" "Tibbett"
  378.       )
  379.       (confirm)
  380.    )
  381.  
  382.    (run "c:delete RAM:modules all quiet")
  383.  
  384.    (working "Uncompressing & Installing DrawMode Modules...")
  385.  
  386.    (if (exists (tackon @default-dest "modules/drawmodes"))
  387.       (
  388.          ; Delete old copies of drawmode modules
  389.          (delete (tackon @default-dest "modules/drawmodes/FeltTip"))
  390.          (delete (tackon @default-dest "modules/drawmodes/Sharpen"))
  391.          (delete (tackon @default-dest "modules/drawmodes/Trail"))
  392.       )
  393.    )
  394.  
  395.    (run "RAM:UNLZ -m x RAM:modules modules/drawmodes/#? RAM:")
  396.  
  397.    (copyfiles
  398.       (prompt "Select DrawMode Modules:")
  399.       (help @copyfiles-help)
  400.       (source "RAM:modules/drawmodes")
  401.       (dest (tackon @default-dest "modules/drawmodes"))
  402.       (choices
  403.          "FeltTip" "Sharpen" "Trail"
  404.       )
  405.       (confirm)
  406.    )
  407.  
  408.    (run "c:delete RAM:modules all quiet")
  409.  
  410.    (working "Uncompressing & Installing System Modules...")
  411.  
  412.    (run "RAM:UNLZ -m x RAM:modules modules/sys/#? RAM:")
  413.  
  414.    (copyfiles
  415.       (prompt "")
  416.       (help @copyfiles-help)
  417.       (source "RAM:modules/sys")
  418.       (dest (tackon @default-dest "modules/sys"))
  419.       (all)
  420.    )
  421.  
  422.    (run "c:delete RAM:modules all quiet")
  423.    (run "c:delete RAM:modules.lzh quiet")
  424.  
  425.    ; Convolution Matrix Installation ------------------------------
  426.  
  427.    (working "Installing Convolution Matrices...")
  428.  
  429.    (makedir (tackon @default-dest "NewMatrix"))
  430.  
  431.    (copyfiles
  432.       (prompt "")
  433.       (help @copyfiles-help)
  434.       (source "ImageFX2:Matrix")
  435.       (dest (tackon @default-dest "NewMatrix"))
  436.       (all)
  437.    )
  438.  
  439.    (if (exists (tackon @default-dest "Matrix"))
  440.       (
  441.          ; recopy user's old convolve files back into the directory;
  442.          ; this will keep the user's files there, and still have
  443.          ; the new ones we installed.  We also leave the user's old
  444.          ; convolve files in "Matrix103" just in case.
  445.  
  446.          (copyfiles
  447.             (prompt "")
  448.             (help @copyfiles-help)
  449.             (source (tackon @default-dest "Matrix"))
  450.             (dest (tackon @default-dest "NewMatrix"))
  451.             (all)
  452.          )
  453.          (rename
  454.             (tackon @default-dest "Matrix")
  455.             (tackon @default-dest "Matrix103")
  456.          )
  457.       )
  458.    )
  459.  
  460.    (rename
  461.       (tackon @default-dest "NewMatrix")
  462.       (tackon @default-dest "Matrix")
  463.    )
  464.  
  465.    ; Transform Installation ------------------------------
  466.  
  467.    ; Preserve user's current transforms, since they aren't any different
  468.    (if (= (exists (tackon @default-dest "transform")) 0)
  469.       (
  470.          (working "Installing Color Transform Presets...")
  471.  
  472.          (makedir (tackon @default-dest "Transform"))
  473.  
  474.          (copyfiles
  475.             (prompt "")
  476.             (help @copyfiles-help)
  477.             (source "ImageFX2:Transform")
  478.             (dest (tackon @default-dest "Transform"))
  479.             (all)
  480.          )
  481.       )
  482.    )
  483.  
  484.    ; Palettes Installation ------------------------------
  485.  
  486.    (if (= (exists (tackon @default-dest "Palettes")) 0)
  487.       (
  488.          (working "Installing Sample Palettes...")
  489.  
  490.          (makedir (tackon @default-dest "Palettes"))
  491.  
  492.          (copyfiles
  493.             (prompt "")
  494.             (help @copyfiles-help)
  495.             (source "ImageFX2:Palettes")
  496.             (dest (tackon @default-dest "Palettes"))
  497.             (all)
  498.          )
  499.       )
  500.    )
  501.  
  502.    ; Library Installation ------------------------------
  503.  
  504.    ; Copy libraries needed from disk 2.
  505.  
  506.    (working "Checking for required libraries...")
  507.  
  508.    (copylib
  509.       (prompt "")
  510.       (help @copylib-help)
  511.       (source "ImageFX2:libs/iffparse.library")
  512.       (dest "LIBS:")
  513.    )
  514.  
  515.    (copylib
  516.       (prompt "")
  517.       (help @copylib-help)
  518.       (source "ImageFX2:libs/amigaguide.library")
  519.       (dest "LIBS:")
  520.    )
  521.  
  522.    (copylib
  523.       (prompt "")
  524.       (help @copylib-help)
  525.       (source "ImageFX2:libs/dctv.library")
  526.       (dest "LIBS:")
  527.    )
  528.  
  529.    (copylib
  530.       (prompt "")
  531.       (help @copylib-help)
  532.       (source "ImageFX2:libs/req.library")
  533.       (dest "LIBS:")
  534.    )
  535.  
  536.    ;*******************************************************************
  537.    ; Prompt for third disk.
  538.    ;*******************************************************************
  539.  
  540.    (askdisk
  541.       (prompt "Please insert ImageFX Support 2 Disk in any drive.")
  542.       (help "")
  543.       (dest "ImageFX3")
  544. ;     (assigns)
  545.    )
  546.  
  547.    (working "Uncompressing & Installing Hook Programs...")
  548.  
  549.    (makedir (tackon @default-dest "Hooks"))
  550.  
  551.    (run "RAM:UNLZ -m x ImageFX3:hooks #? \"%ls\"" (tackon @default-dest "Hooks/"))
  552.  
  553.    (if (= (exists (tackon @default-dest "Hooks.info")) 0)
  554.       (
  555.          (copyfiles
  556.             (prompt "")
  557.             (help @copyfiles-help)
  558.             (source "ImageFX3:Hooks.info")
  559.             (dest @default-dest)
  560.          )
  561.       )
  562.    )
  563.  
  564.    (working "Installing Help Files...")
  565.  
  566.    (copyfiles
  567.       (prompt "")
  568.       (help @copyfiles-help)
  569.       (source "ImageFX3:help")
  570.       (dest (tackon @default-dest "help"))
  571.       (all)
  572.    )
  573.  
  574.    (working "Installing Arexx Programs...")
  575.  
  576.    (set dorexx 1)
  577.    (if (> @user-level 1)
  578.       (set dorexx
  579.          (askbool
  580.             (prompt "Do you want to install the sample Arexx programs?")
  581.             (help "")
  582.             (default 1)
  583.          )
  584.       )
  585.    )
  586.    (if (<> dorexx 0)
  587.       (
  588.  
  589.          (if (<> (exists (tackon @default-dest "rexx")) 0)
  590.             (
  591.                ; copy everything if directory does not exist...
  592.                (makedir (tackon @default-dest "Rexx"))
  593.  
  594.                (copyfiles
  595.                   (prompt "")
  596.                   (help @copyfiles-help)
  597.                   (source "ImageFX3:Rexx")
  598.                   (dest (tackon @default-dest "Rexx"))
  599.                   (all)
  600.                )
  601.             )
  602.             ; else
  603.             (
  604.                ; otherwise only copy the new stuff... we're assuming
  605.                ; the user hasn't made any scripts with these names.
  606.                (copyfiles
  607.                   (prompt "")
  608.                   (help @copyfiles-help)
  609.                   (source "ImageFX3:Rexx")
  610.                   (dest (tackon @default-dest "Rexx"))
  611.                   (choices
  612.                      "Create.ifx"
  613.                      "PrintFax.ifx"
  614.                      "ScanFax.ifx"
  615.                      "ScanMultiple.ifx"
  616.                      "TestRecord1.ifx"
  617.                      "TestRecord2.ifx"
  618.                   )
  619.                )
  620.             )
  621.          )
  622.  
  623.       )
  624.    )
  625.  
  626.    (working "Installing Icons...")
  627.  
  628.    (if (<= osver 35)
  629.       (
  630.  
  631.          (copyfiles
  632.             (prompt "")
  633.             (help @copyfiles-help)
  634.             (source "ImageFX3:icons_1.3/ImageFX_13.info")
  635.             (dest @default-dest)
  636.             (newname "ImageFX.info")
  637.          )
  638.  
  639.          (if (= (exists (tackon @default-dest "ImageFX_WB.info")) 0)
  640.             (
  641.                (copyfiles
  642.                   (prompt "")
  643.                   (help @copyfiles-help)
  644.                   (source "ImageFX3:icons_1.3")
  645.                   (dest @default-dest)
  646.                   (choices
  647.                      "ImageFX_WB.info"
  648.                      "IMP.info"
  649.                      "Cinemorph.info"
  650.                   )
  651.                )
  652.             )
  653.          )
  654.  
  655.          (if (= (exists (tackon @default-dest "Icons")) 0)
  656.             (
  657.                (makedir (tackon @default-dest "Icons"))
  658.  
  659.                (copyfiles
  660.                   (prompt "")
  661.                   (help @copyfiles-help)
  662.                   (source "ImageFX3:icons_1.3")
  663.                   (dest (tackon @default-dest "Icons"))
  664.                   (choices
  665.                      "Buffer.info"
  666.                      "Brush.info"
  667.                      "Rendered.info"
  668.                      "Palette.info"
  669.                   )
  670.                )
  671.             )
  672.          )
  673.  
  674.       )
  675.       ; else
  676.       (
  677.  
  678.          (if (= (exists (tackon @default-dest "ImageFX.info")) 0)
  679.             (
  680.                (copyfiles
  681.                   (prompt "")
  682.                   (help @copyfiles-help)
  683.                   (source "ImageFX3:icons_2.0")
  684.                   (dest @default-dest)
  685.                   (choices
  686.                      "README.info"
  687.                      "ImageFX.info"
  688.                      "ImageFX_WB.info"
  689.                      "IMP.info"
  690.                      "Cinemorph.info"
  691.                   )
  692.                )
  693.             )
  694.          )
  695.  
  696.          (if (= (exists (tackon @default-dest "Icons")) 0)
  697.             (
  698.                (makedir (tackon @default-dest "Icons"))
  699.  
  700.                (copyfiles
  701.                   (prompt "")
  702.                   (help @copyfiles-help)
  703.                   (source "ImageFX3:icons_2.0")
  704.                   (dest (tackon @default-dest "Icons"))
  705.                   (choices
  706.                      "AppIcon.info"
  707.                      "Buffer.info"
  708.                      "Brush.info"
  709.                      "Rendered.info"
  710.                      "Palette.info"
  711.                   )
  712.                )
  713.             )
  714.          )
  715.  
  716.       )
  717.    )
  718.  
  719.    ; Viewtek!
  720.  
  721.    (if (>= osver 37)
  722.       (
  723.          (copyfiles
  724.             (prompt "")
  725.             (help @copyfiles-help)
  726.             (source "ImageFX3:Viewtek")
  727.             (dest (tackon @default-dest "Viewtek"))
  728.             (all)
  729.          )
  730.          (copyfiles
  731.             (prompt "")
  732.             (help @copyfiles-help)
  733.             (source "ImageFX3:")
  734.             (dest @default-dest)
  735.             (choices "Viewtek.info")
  736.          )
  737.       )
  738.    )
  739.  
  740.    ; MAGIC
  741.  
  742.    (copyfiles
  743.       (prompt "")
  744.       (help @copyfiles-help)
  745.       (source "ImageFX3:MAGIC")
  746.       (dest (tackon @default-dest "MAGIC"))
  747.       (all)
  748.    )
  749.    (copyfiles
  750.       (prompt "")
  751.       (help @copyfiles-help)
  752.       (source "ImageFX3:")
  753.       (dest @default-dest)
  754.       (choices "MAGIC.info")
  755.    )
  756.  
  757.    ; Ask if user wants to install sample images...
  758.  
  759.    (set copysamples 1)
  760.    (if (> @user-level 1)
  761.       (set copysamples
  762.          (askbool
  763.             (prompt "Do you want to copy the sample images, animations, and "
  764.                     "morph projects over?")
  765.             (help "")
  766.             (default 1)
  767.          )
  768.       )
  769.    )
  770.  
  771.    (if (<> copysamples 0)
  772.       (
  773.  
  774.          ;*******************************************************************
  775.          ; Prompt for fourth disk.
  776.          ;*******************************************************************
  777.  
  778.          (askdisk
  779.             (prompt "Please insert Demo Disk in any drive.")
  780.             (help "")
  781.             (dest "ImageFX4")
  782. ;           (assigns)
  783.          )
  784.  
  785.          (working "Installing Sample Files...")
  786.  
  787.          (if (= (exists (tackon @default-dest "Animations.info")) 0)
  788.             (
  789.                (copyfiles
  790.                   (prompt "")
  791.                   (help @copyfiles-help)
  792.                   (source "ImageFX4:")
  793.                   (dest @default-dest)
  794.                   (choices
  795.                      "Animations.info"
  796.                      "MorphProjects.info"
  797.                      "Pictures.info"
  798.                   )
  799.                )
  800.             )
  801.          )
  802.  
  803.          (copyfiles
  804.             (prompt "")
  805.             (help @copyfiles-help)
  806.             (source "ImageFX4:Animations")
  807.             (dest (tackon @default-dest "Animations"))
  808.             (all)
  809.          )
  810.  
  811.          (copyfiles
  812.             (prompt "")
  813.             (help @copyfiles-help)
  814.             (source "ImageFX4:MorphProjects")
  815.             (dest (tackon @default-dest "MorphProjects"))
  816.             (all)
  817.          )
  818.  
  819.          (copyfiles
  820.             (prompt "")
  821.             (help @copyfiles-help)
  822.             (source "ImageFX4:Pictures")
  823.             (dest (tackon @default-dest "Pictures"))
  824.             (all)
  825.          )
  826.       )
  827.    )
  828.  
  829.    (makeassign "ImageFX" @default-dest)
  830.  
  831.    ; Add assign to user startup and...
  832.    ;
  833.    ; Make sure that AmigaGuide can find the help files (under V39
  834.    ; we need to add the path of the help files to ENV:AmigaGuide/Path.
  835.    ; This should be interesting...
  836.  
  837.    (if (>= osver 39)
  838.       (
  839.          (run "SetEnv AmigaGuide/Path ImageFX:Help")
  840.  
  841.          (onerror
  842.             (message
  843.                "Cannot update startup sequence.  You will need to "
  844.                "add the following commands manually: "
  845.                "'Assign ImageFX: \"%ls\"'" @default-dest
  846.                "'SetEnv AmigaGuide/Path ImageFX:Help'"
  847.             )
  848.          )
  849.  
  850.          (startup "ImageFX"
  851.             (prompt
  852.                "Do you want to add an ImageFX: assign to your startup sequence?"
  853.             )
  854.             (help @startup-help)
  855.             (command
  856.                "Assign ImageFX: \"" @default-dest "\"\n"
  857.                "SetEnv AmigaGuide/Path ImageFX:Help"
  858.             )
  859.          )
  860.       )
  861.       ;else
  862.       (
  863.          (onerror
  864.             (message
  865.                "Cannot update startup sequence.  You will need to "
  866.                "add the following command manually: "
  867.                "'Assign ImageFX: \"%ls\"'" @default-dest
  868.             )
  869.          )
  870.  
  871.          (startup "ImageFX"
  872.             (prompt "Do you want to add an ImageFX: assign to your Startup sequence?")
  873.             (help @startup-help)
  874.             (command "Assign ImageFX: \"" @default-dest "\"")
  875.          )
  876.       )
  877.    )
  878.  
  879.    (run "c:delete RAM:UNLZ quiet")
  880.  
  881.    ; Installation complete!
  882. )
  883.